home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 February / macformat-034.iso / mac / Shareware City / Applications / Laughing Bird Folder / The Laughing Bird Restaurant / The Laughing Bird Restaurant.dxr / 00271_PersonalMenu.ls < prev    next >
Encoding:
Text File  |  1995-12-16  |  775 b   |  25 lines
  1. on mouseUp
  2.   global theChoice, gNewRecipe, gWhichMenu
  3.   set newLine to the mouseLine
  4.   set the foreColor of line newLine of field "PersonalMenu" to 139
  5.   puppetSound("Click2")
  6.   updateStage()
  7.   set the foreColor of line newLine of field "PersonalMenu" to 5
  8.   set theText to line newLine of field "PersonalMenu"
  9.   set numEnd to offset(")", theText)
  10.   if numEnd > 0 then
  11.     set theSelection to char 1 to numEnd - 1 of theText
  12.     set gNewRecipe to word 2 to the number of words in theText of theText
  13.     set theChoice to value(theSelection)
  14.     put value(theSelection) into field "Count"
  15.     initPush(3, 12, 0)
  16.     init(15, 25, 0)
  17.     set the visible of sprite 25 to 1
  18.     go("Recipes")
  19.   else
  20.     exit
  21.   end if
  22.   PersonalRecipeSelect()
  23.   set gWhichMenu to "PersonalMenu"
  24. end
  25.